home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Gurla_1_19xx_-.d64
/
dir kasittely
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
8KB
|
242 lines
0 rem" dir kasittely :*: tehnyt marko jerrman[160][160]
5 a[178]a[170]1:[139]a[178]1[167][147]"828",8,8
10 [134]d$(10,8),t$(68),d1$(80),d2$(80),d(80):[159]15,8,15
15 [129]i[178]0[164]8:[135]t$(i):[130]:[129]i[178]64[164]68:[135]t$(i):[130]
16 oe$[178]"on/eiwait":[129]i[178]0[164]9:al$[178]al$[170]"":[130]:[129]i[178]1[164]39:tt$[178]tt$[170]" ":[130]
17 [129]i[178]1[164]10:[135]s(i):[130]
30 [137]1000
31 [131] del,seq,prg,usr,rel,*seq,*prg,*usr,*rel
33 [131] del<,seq<,prg<,usr<,rel<
35 [131]1,4,7,10,13,16,2,5,8,11
40 [159]5,8,5,"#":s[178]1:z[178]1
50 [152]15,"u1:"5;0;18;s:[152]15,"b-p:"5;0
60 [129]j[178]1[164]8:d$(z,j)[178]"":[129]i[178]0[164]31:[161]#5,a$:[139]a$[178]""[167]a$[178][199](0)
65 [139]st[179][177]64[175]st[179][177]0[167]90
70 d$(z,j)[178]d$(z,j)[170]a$:[130]:[139][202](d$(z,j),6,1)[178][199](0)[167]90
72 [141]500
75 [130]:s[178][198]([202](d$(z,1),2,1)):z[178]z[170]1
80 [139]s[179]21[167]50
90 [160]5:[142]
100 [159]5,8,5,"#":[152]15,"u1:"5;0;18;0:[152]15,"b-p:"5;144:d$(0,0)[178]""
110 [129]i[178]1[164]24:[161]#5,a$:[139]a$[178]""[167]a$[178][199](0)
115 d$(0,0)[178]d$(0,0)[170]a$:[130]:[153]""d$(0,0):[160]5:[142]
500 [153][202](d$(z,j),6,16)" ";:[139][198]([202](d$(z,j),3,1))[178]0[167][153]t$(0)" ";:[137]505
501 [139][198]([202](d$(z,j),3,1))[179]128[167][153]t$([198]([202](d$(z,j),3,1))[170]4)" ";:[137]505
502 [153]t$([198]([202](d$(z,j),3,1))[171]128)" ";
505 p[178][198]([202](d$(z,j),31,1))[170][198]([201](d$(z,j),1))[172]256:[153]p"blokkia ":p[178]1
509 [142]
1000 [153]"loadreturn * * * * * dirikan kasittely * * * * *":[161]a$,a$
1010 [153]" muistissa "oe$" dirikka"
1020 [153]" 1 wait lataa dirikka"
1030 [153]" 2 wait tallenna dirikka"
1040 [153]" 3 wait kasittele otsikkoa"
1050 [153]" 4 wait palauta/sulje jutut"
1060 [153]" 5 wait jarjesta dirikka"
1070 [153]" 6 wait viivoja dirikkaan"
1080 [153]" 7 wait levykasky"
1090 [153]" 8 wait dirikka pois muistista":a[178]0:p[178]0:i[178]0:j[178]0:z[178]0
1095 [153]" 9 wait dirikka nakyviin"
1100 [153]" 0 wait levyn dirikka":[129]i[178]1[164]80:d1$(i)[178]"":d2$(i)[178]"":d(i)[178]0:[130]
1110 [161]a$:[139]a$[179]"0"[176]a$[177]"9"[167]1110
1120 a[178][197](a$):[145]a[137]1200,1800,1300,1270,1400,1650,1220,1210,1900
1125 [153]"load":[158]828
1126 [161]a$:[139]a$[178]""[167]1126
1128 [137]1000
1200 [153]"loadlataan":[141]100:[141]40:oe$[178]"onwait/ei":d$(0,1)[178][196](z)
1205 d$(0,2)[178][196](j[171]1):[139]j[171]1[178]0[176]j[171]1[178]8[167]d$(0,1)[178][196](z[171]1):d$(0,2)[178]"8"
1206 [137]1000
1210 [153]"loadoletko varma (k/e)?"
1215 [161]a$:[139]a$[179][177]"e"[175]a$[179][177]"k"[167]1215
1217 [139]a$[178]"e"[167]1000
1218 [138]10
1220 [153]"loadlevykasky":[153]"mika on kaskysi (*=levyn tila)?":b$[178]"":[153]"_cmd";
1225 [161]a$:[139]a$[178]""[176](a$[177][199](127)[175]a$[179][199](160))[167]1225
1230 [139]a$[178]""[175][195](b$)[177]0[167][153]"cmd_ cmdcmd";:b$[178][200](b$,[195](b$)[171]1):[137]1225
1231 [139]a$[179][199](32)[175]a$[179][177][199](13)[167]1225
1233 [139]a$[178][199](34)[167]1220
1234 [139]a$[178][199](13)[167][153]" ":[137]1240
1235 b$[178]b$[170]a$:[153]a$"_cmd";:[137]1225
1240 [139]b$[178]"*"[167]1250
1243 [139][200](b$,1)[178]"n"[167][153]"oletko varma (k/e)?":[137]1260
1245 [152]15,b$:[137]1250
1250 [161]#15,a$:[153]""a$;:[139]a$[179][177][199](13)[167]1250
1254 [161]a$:[139]a$[178]""[167]1254
1255 [137]1000
1260 [161]a$:[139]a$[179][177]"k"[175]a$[179][177]"e"[167]1260
1263 [139]a$[178]"e"[167]1220
1265 [137]1245
1270 [153]"loadpalautan":p[178]0:d[178][197](d$(0,1)):[139][197](d$(0,1))[178]0[167]1000
1272 [139]d[178]1[167]z[178]1:[137]1276
1273 [129]z[178]1[164]d[171]1:[129]j[178]1[164]8:[139][198]([202](d$(z,j),3,1))[178]0[167][141]1280
1274 [139][198]([202](d$(z,j),3,1))[177]0[175][198]([202](d$(z,j),3,1))[179]9[167][141]1296
1275 [130]:[130]
1276 [129]j[178]1[164][197](d$(0,2)):[139][198]([202](d$(z,j),3,1))[178]0[167][141]1280
1277 [139][198]([202](d$(z,j),3,1))[177]0[175][198]([202](d$(z,j),3,1))[179]9[167][141]1296
1278 [130]:[139]p[178]0[167][153]"ei poistettuja tai avonaisia tiedostoja":[137]1254
1279 [137]1000
1280 [141]500:[153]"palautetaanko (k/e)?":b$[178]""
1282 [161]a$:[139]a$[179][177]"e"[175]a$[179][177]"k"[167]1282
1283 [139]a$[178]"e"[167][142]
1284 [139]b$[178]"s"[167]1297
1285 [153]"ononko kyseessa pwaitrg, swaiteq, uwaitsr vai rwaitel?"
1287 [161]a$:[139]a$[178]""[167]1287
1290 [139]a$[178]"p"[167]a[178]2:[137]1295
1291 [139]a$[178]"s"[167]a[178]1:[137]1295
1292 [139]a$[178]"u"[167]a[178]3:[137]1295
1293 [139]a$[178]"r"[167]a[178]4:[137]1295
1294 [137]1287
1295 d$(z,j)[178][200](d$(z,j),2)[170][199](128[170]a)[170][201](d$(z,j),29):[142]
1296 [141]500:[153]"suljetaanko (k/e)":b$[178]"s":[137]1282
1297 a[178][198]([202](d$(z,j),3,1)):[137]1295
1300 [153]"loadkasitellaan otsikkoa":[139]d$(0,0)[178]""[167]1000
1305 [153]"id:lla @ dirikasta tulee nakymaton"
1310 [153]"vanha otsikko=";[200](d$(0,0),16):[153]"vanha id="[201](d$(0,0),6)
1320 [153]"uusi otsikko= :cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd_cmd";:b$[178]""
1325 [161]a$:[139]a$[178]""[176](a$[177][199](127)[175]a$[179][199](160))[167]1325
1326 [139]a$[178]""[175][195](b$)[177]0[167][153]"cmd_ cmdcmd";:b$[178][200](b$,[195](b$)[171]1)
1327 [139]a$[179][199](32)[175]a$[179][177][199](13)[167]1325
1328 [139]a$[178][199](34)[167][153][199](34)[199](20);
1330 [139]a$[178][199](13)[167][153]" ":b$[178][200](b$[170]" close",16):[137]1335
1332 [153]a$"_cmd";:b$[178]b$[170]a$:[139][195](b$)[177]16[167][153]"cmd: cmdcmd";:b$[178][200](b$,16)
1334 [137]1325
1335 [153]"uusi id= :cmdcmdcmdcmdcmdcmd_cmd";:c$[178]""
1340 [161]a$:[139]a$[178]""[176](a$[177][199](127)[175]a$[179][199](160))[167]1340
1341 [139]a$[178]""[175][195](c$)[177]0[167][153]"cmd_ cmdcmd";:c$[178][200](c$,[195](c$)[171]1)
1342 [139]a$[179][199](32)[175]a$[179][177][199](13)[167]1340
1343 [139]a$[178][199](34)[167][153][199](34)[199](20);
1345 [139]a$[178][199](13)[167][153]" ":c$[178][200](c$[170]" close",5):[137]1350
1346 [153]a$"_cmd";:c$[178]c$[170]a$:[139][195](c$)[177]5[167][153]"cmd: cmdcmd";:c$[178][200](c$,5)
1347 [137]1340
1350 [139][200](c$,1)[178]"@"[167]c$[178]"":[129]i[178]1[164]5:c$[178]c$[170][199](0):[130]
1360 d$(0,0)[178]b$[170]"closeclose"[170]c$[170]" ":[137]1000
1400 [153]"load<ret>=valinta m=muunto":a[178]1:d[178][197](d$(0,1)):[139]d[178]0[167]1000
1404 [153]"p=poisto s=suojaus/antisuojaus"
1405 [153]"k=keskeytys v=valmis (kaikki mukaan)"
1410 [139]d[178]1[167]z[178]1:[137]1425
1415 [129]z[178]1[164]d[171]1:[129]j[178]1[164]8:[139][198]([202](d$(z,j),3,1))[177]9[167]d1$(a)[178]d$(z,j):a[178]a[170]1
1420 [130]:[130]
1425 [129]j[178]1[164][197](d$(0,2)):[139][198]([202](d$(z,j),3,1))[177]9[167]d1$(a)[178]d$(z,j):a[178]a[170]1
1429 [130]:[139][195](d1$(1))[178]0[167]1000
1430 a[178]a[171]1:[129]i[178]1[164]a:d(i)[178]0:[130]:al[178]1:lo[178]12:b[178]7:n[178]1:la[178]1:[139]a[179]lo[167]lo[178]a
1440 [153]""[166]8)d$(0,0)[200](al$,b)
1445 [153]tt$:[139]n[177]al[167][129]z[178]al[164]n[171]1:[141]1500:[130]
1447 z[178]n:[153]"";:[141]1500:[139]lo[177]n[167][129]z[178]n[170]1[164]lo:[141]1500:[130]
1448 [153]tt$"on":[161]a$,a$
1450 [161]a$:[139]a$[178]""[167]1450
1451 [139]a$[178]"s"[167]1485
1452 [139]a$[178]""[175]n[179]lo[167]1460
1453 [139]a$[178]"p"[175]d(n)[178]0[167]1490
1454 [139]a$[178]"m"[167]1530
1455 [139]a$[178]"on"[175]n[177]1[167]1470
1456 [139]a$[178]"k"[167]1000
1457 [139]a$[178][199](13)[167]1480
1458 [139](a$[178]"v"[175]la[171]1[178]a)[176](a$[178]"v"[175]la[178]1)[167]1600
1459 [137]1450
1460 n[178]n[170]1:[139]b[177]0[167]b[178]b[171]1:[137]1465
1462 al[178]al[170]1
1465 [139]lo[179]a[167]lo[178]lo[170]1
1466 [137]1440
1470 n[178]n[171]1:[139]b[179]7[175]al[178]1[167]b[178]b[170]1
1472 lo[178]lo[171]1:[139]lo[171]n[179]11[167]lo[178]lo[170]1
1475 [139]al[177]1[167]al[178]al[171]1
1476 [137]1440
1480 [139]d(n)[178]0[167]d(n)[178]la:la[178]la[170]1:[139]n[179]lo[167]1460
1481 [137]1440
1485 [139][202](d1$(n),3,1)[177][199](190)[167]1488
1486 d1$(n)[178][200](d1$(n),2)[170][199]([198]([202](d1$(n),3,1))[170]64)[170][201](d1$(n),29)
1487 [137]1440
1488 d1$(n)[178][200](d1$(n),2)[170][199]([198]([202](d1$(n),3,1))[171]64)[170][201](d1$(n),29)
1489 [137]1440
1490 d1$(n)[178]"":[129]i[178]n[164]a:d1$(i)[178]d1$(i[170]1):d(i)[178]d(i[170]1):[130]:a[178]a[171]1:[139]lo[177]a[167]lo[178]a
1491 [139]n[177]a[167]n[178]a:al[178]al[171]1:[139]al[178]0[167]al[178]1:b[178]b[170]1
1492 [139]al[177]lo[167]1000
1493 [137]1440
1500 [153]d(z)"cmd "[202](d1$(z),6,16)" "t$([198]([202](d1$(z),3,1))[171]128)" ";
1505 p[178][198]([202](d1$(z),31,1))[170][198]([201](d1$(z),1))[172]256:[153]p"cmd "
1506 [142]
1510 [153]" "[202](d1$(z),6,16)" "t$([198]([202](d1$(z),3,1))[171]128)" ";:[137]1505
1530 [153]"load"[166]8)d$(0,0):z[178]n
1535 [153]"nykyiset tiedot:":[141]1500:[153]"anna uudet tiedot <ret>=ei muutosta"
1540 [153]"nimi: _cmd";:b$[178]""
1545 [161]a$:[139]a$[178]""[176](a$[177][199](127)[175]a$[179][199](160))[167]1545
1546 [139]a$[178]""[175][195](b$)[177]0[167][153]"cmd_ cmdcmd";:b$[178][200](b$,[195](b$)[171]1)
1547 [139]a$[179][199](32)[175]a$[179][177][199](13)[167]1545
1548 [139]a$[178][199](34)[167][153][199](34)[199](20);
1550 [139]a$[178][199](13)[175]b$[179][177]""[167][153]" ":b$[178][200](b$[170]" close",16):[137]1560
1551 [139]a$[178][199](13)[175]b$[178]""[167][153]" ":[137]1560
1552 [153]a$"_cmd";:b$[178]b$[170]a$:[139][195](b$)[177]16[167][153]"cmd: cmdcmd";:b$[178][200](b$,16)
1553 [137]1545
1560 [153]"pituus: _cmd";:c$[178]""
1565 [161]a$:[139]a$[178]""[167]1565
1566 [139]a$[178]""[175][195](c$)[177]0[167][153]"cmd_ cmdcmd";:c$[178][200](c$,[195](c$)[171]1)
1567 [139]a$[179]"0"[175]a$[179][177][199](13)[167]1565
1568 [139]a$[177]"9"[167]1565
1569 [139]a$[178][199](13)[167]1575
1571 [153]a$"_cmd";:c$[178]c$[170]a$:[139][195](c$)[177]5[167][153]"cmd: cmdcmd";:c$[178][200](c$,5)
1572 [137]1565
1575 [139]b$[178]""[167]1580
1577 d1$(n)[178][200](d1$(n),5)[170]b$[170][201](d1$(n),11)
1580 [139][197](c$)[178]0[167]1585
1581 z[178][197](c$):[139]z[177]65535[167]z[178]65535
1582 i[178][181](z[173]256):j[178]z[171]256[172]i:d1$(n)[178][200](d1$(n),30)[170][199](j)[170][199](i)
1585 [153]"load<ret>=valinta m=muunto"
1586 [153]"p=poisto s=suojaus/antisuojaus"
1587 [153]"k=keskeytys v=valmis (kaikki mukaan)":[137]1440
1600 [139]la[178]1[167][129]i[178]1[164]a:d2$(i)[178]d1$(i):[130]:[137]1610
1605 [129]i[178]1[164]a:d2$(d(i))[178]d1$(i):[130]
1610 z[178]1:j[178]1:[129]i[178]1[164]a:d$(z,j)[178]d2$(i):j[178]j[170]1:[139]j[178]9[167]z[178]z[170]1:j[178]1
1615 [130]:d$(0,1)[178][196](z):d$(0,2)[178][196](j[171]1)
1620 [139]j[171]1[178]0[167]d$(0,1)[178][196](z[171]1):d$(0,2)[178]"8"
1621 [137]1000
1650 [153]"loadviivoja":a[178]1:d[178][197](d$(0,1)):[139]d[178]0[167]1000
1655 [153]"k=keskeytys v=valmis"
1660 [139]d[178]1[167]z[178]1:[137]1675
1665 [129]z[178]1[164]d[171]1:[129]j[178]1[164]8:[139][198]([202](d$(z,j),3,1))[177]9[167]d1$(a)[178]d$(z,j):a[178]a[170]1
1670 [130]:[130]
1675 [129]j[178]1[164][197](d$(0,2)):[139][198]([202](d$(z,j),3,1))[177]9[167]d1$(a)[178]d$(z,j):a[178]a[170]1
1680 [130]:[139][195](d1$(1))[178]0[167]1000
1685 a[178]a[171]1:al[178]1:lo[178]10:b[178]7:n[178]1:[139]a[179]lo[167]lo[178]a
1690 [153]""[166]8)d$(0,0):[153][200](al$,b)
1695 [153]tt$:[139]n[177]al[167][129]z[178]al[164]n[171]1:[141]1510:[130]
1700 [153]" -*-*-*-*-*-*-*-* usr":[139]lo[178][177]n[167][129]z[178]n[164]lo:[141]1510:[130]
1705 [153]tt$"on":[161]a$,a$
1710 [161]a$:[139]a$[178]""[167]1710
1712 [139]a$[178]""[175]n[179][178]lo[167]1720
1715 [139]a$[178]"on"[175]n[177]1[167]1730
1716 [139]a$[178]"k"[167]1000
1717 [139]a$[178][199](13)[167]1740
1718 [139]a$[178]"v"[167][129]i[178]1[164]a:d2$(i)[178]d1$(i):[130]:[137]1610
1719 [137]1710
1720 n[178]n[170]1:[139]b[177]0[167]b[178]b[171]1:[137]1725
1722 al[178]al[170]1
1725 [139]lo[179]a[167]lo[178]lo[170]1
1726 [137]1690
1730 n[178]n[171]1:[139]b[179]7[175]al[178]1[167]b[178]b[170]1
1732 lo[178]lo[171]1:[139]lo[171]n[179]9[167]lo[178]lo[170]1
1735 [139]al[177]1[167]al[178]al[171]1
1736 [137]1690
1740 [129]i[178]a[164]n[169][171]1:d1$(i[170]1)[178]d1$(i):[130]:a[178]a[170]1
1745 d1$(n)[178][200](d1$(n),2)[170]"data"[170][199](0)[170][199](255)[170]"-*-*-*-*-*-*-*-*"
1746 d1$(n)[178]d1$(n)[170][199](0)[170][199](0)
1747 [137]1720
1800 [153]"loadtallennus"[199](13)"laita levy asemaan":[139]oe$[179][177]"onwait/ei"[167]1000
1810 [161]a$:[139]a$[178]""[167]1810
1812 [139]a$[178]"e"[176]a$[178]"_"[167]1000
1815 [153]"talletus kaynnissa!":d[178][197](d$(0,1))
1820 [159]5,8,5,"#":[132]15,a$:[139][197](a$)[177]1[167][160]5:[137]1000
1830 [152]15,"u1:"5;0;18;0:[152]15,"b-p:"5;144:[152]5,d$(0,0):[152]15,"u2:"5;0;18;0
1834 [139]d[178]0[167][160]5:[137]1000
1835 [139]d[178]1[167]z[178]1:[137]1850
1840 [129]z[178]1[164]d[171]1:j[178]1
1841 [152]15,"b-p:"5;0:[152]5,[199](18)[199](s(z[170]1))[201](d$(z,j),30);:s[178]s(z)
1845 [129]j[178]2[164]8:[152]5,d$(z,j);:[130]:[152]15,"u2:"5;0;18;s:[130]
1850 [152]15,"b-p:"5;0:[129]i[178]1[164]8:[129]t[178]1[164]32:[152]5,[199](0);:[130]:[130]
1851 j[178]1:[152]15,"b-p:"5;0:[152]5,[199](0)[199](255)[201](d$(z,j),30);:s[178]s(z)
1852 [139][197](d$(0,2))[177]1[167][129]j[178]2[164][197](d$(0,2)):[152]5,d$(z,j);:[130]
1860 [152]15,"u2:"5;0;18;s:[160]5:[137]1000
1900 [153]"load"d$(0,0):d[178][197](d$(0,1)):[139]oe$[178]"on/eiwait"[167]1000
1910 [139]d[178]1[167]z[178]1:[137]1930
1911 [139][197](d$(0,1))[178]0[167]1254
1920 [129]z[178]1[164]d[171]1:[129]j[178]1[164]8:[141]500:[130]:[130]
1930 [129]j[178]1[164][197](d$(0,2)):[141]500:[130]:[137]1254